vsechny komponenty
Otįzka od: Vymazal Milan
12. 11. 2002 12:53
Zdravim
mam takovy maly problem mam pagecontrol s nekolika tabsheet a na nich
jsou urcite komponenty. Napriklad TEdit, TButton atd. potreboval bych
nejakym zpusobem smazat obsah vsech Tedit na jednom urcenem tabsheet.
Urcite se to bude delat nejak pres to ze si zjistim ze je parent ten
dany tabsheet. ale presne nevim jak.
Dik milan
Odpovedį: Vymazal Milan
12. 11. 2002 12:11
Cau
IPˇ> Pisu to z hlavy, tak promin pripadnou chybu. Procedure posli dany
IPˇ> TabSheet. Kontroly lze osetrit treba na TEdity, ktere maji nejaky Tag, ...
IPˇ> Muzes to volat i rekurzivne, pokud tam mas nejake panely, ...
diky moc. ale tohle vy smaze caption na tom danem tabsheet ? kde je
teda chyba je naevim
IPˇ> procedure VyprazdniSe(AWinControl : TWinControl);
IPˇ> var i : integer;
IPˇ> begin
IPˇ> for i := 0 to AWinControl.ControlCount - 1 do
IPˇ> if AWinControl.Controls[i] is TEdit then
IPˇ> TEdit(AWinControl).Text := '';
IPˇ> end;
IPˇ> --------
IPˇ> ing. Pavel Zilinec
IPˇ> MailTo:zilinec@email.cz
IPˇ> Prog-Soft s.r.o. Plzen
IPˇ> Informacni system pro vyrobce
IPˇ> a distributory napoju
VM>> Zdravim
VM>> mam takovy maly problem mam pagecontrol s nekolika tabsheet a na nich
VM>> jsou urcite komponenty. Napriklad TEdit, TButton atd. potreboval bych
VM>> nejakym zpusobem smazat obsah vsech Tedit na jednom urcenem tabsheet.
VM>> Urcite se to bude delat nejak pres to ze si zjistim ze je parent ten
VM>> dany tabsheet. ale presne nevim jak.
VM>> Dik milan
--
Best regards,
Vymazal mailto:vymazal.milan@seznam.cz
Odpovedį: Vymazal Milan
12. 11. 2002 14:34
Cau
IPˇ> Pisu to z hlavy, tak promin pripadnou chybu. Procedure posli dany
IPˇ> TabSheet. Kontroly lze osetrit treba na TEdity, ktere maji nejaky Tag, ...
IPˇ> Muzes to volat i rekurzivne, pokud tam mas nejake panely, ...
uz to funguje spravne je:
IPˇ> procedure VyprazdniSe(AWinControl : TWinControl);
IPˇ> var i : integer;
IPˇ> begin
IPˇ> for i := 0 to AWinControl.ControlCount - 1 do
IPˇ> if AWinControl.Controls[i] is TEdit then
IPˇ> TEdit(AWinControl).Text := '';
IPˇ> end;
var i : integer;
begin
for i := 0 to AWinControl.ControlCount - 1 do
if AWinControl.Controls[i] is TEdit then
TEdit(AWinControl.Controls[i]).text:='';
IPˇ> --------
IPˇ> ing. Pavel Zilinec
IPˇ> MailTo:zilinec@email.cz
IPˇ> Prog-Soft s.r.o. Plzen
IPˇ> Informacni system pro vyrobce
IPˇ> a distributory napoju
VM>> Zdravim
VM>> mam takovy maly problem mam pagecontrol s nekolika tabsheet a na nich
VM>> jsou urcite komponenty. Napriklad TEdit, TButton atd. potreboval bych
VM>> nejakym zpusobem smazat obsah vsech Tedit na jednom urcenem tabsheet.
VM>> Urcite se to bude delat nejak pres to ze si zjistim ze je parent ten
VM>> dany tabsheet. ale presne nevim jak.
VM>> Dik milan
--
Best regards,
Vymazal mailto:vymazal.milan@seznam.cz
Odpovedį: Vymazal Milan
12. 11. 2002 14:24
Hello Ing.,
Tuesday, November 12, 2002, 12:15:09 PM, you wrote:
IPˇ> Chybicka se vloudila ...
to je dobry diky moc.
IPˇ> --------
IPˇ> ing. Pavel Zilinec
IPˇ> MailTo:zilinec@email.cz
IPˇ> Prog-Soft s.r.o. Plzen
IPˇ> Informacni system pro vyrobce
IPˇ> a distributory napoju
IPˇ>>> Pisu to z hlavy, tak promin pripadnou chybu. Procedure posli dany
VM>> diky moc. ale tohle vy smaze caption na tom danem tabsheet ? kde je
VM>> teda chyba je naevim
IPˇ>>> procedure VyprazdniSe(AWinControl : TWinControl);
IPˇ>>> var i : integer;
IPˇ>>> begin
IPˇ>>> for i := 0 to AWinControl.ControlCount - 1 do
IPˇ>>> if AWinControl.Controls[i] is TEdit then
IPˇ>>> TEdit(AWinControl).Text := '';
IPˇ> TEdit(AWinControl.Controls[i]).Text := '';
IPˇ> 
IPˇ>>> end;
--
Best regards,
Vymazal mailto:vymazal.milan@seznam.cz
Odpovedį: Ing. Pavel ˇilinec
12. 11. 2002 11:48
Pisu to z hlavy, tak promin pripadnou chybu. Procedure posli dany
TabSheet. Kontroly lze osetrit treba na TEdity, ktere maji nejaky Tag, ...
Muzes to volat i rekurzivne, pokud tam mas nejake panely, ...
procedure VyprazdniSe(AWinControl : TWinControl);
var i : integer;
begin
for i := 0 to AWinControl.ControlCount - 1 do
if AWinControl.Controls[i] is TEdit then
TEdit(AWinControl).Text := '';
end;
--------
ing. Pavel Zilinec
MailTo:zilinec@email.cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
VM> Zdravim
VM> mam takovy maly problem mam pagecontrol s nekolika tabsheet a na nich
VM> jsou urcite komponenty. Napriklad TEdit, TButton atd. potreboval bych
VM> nejakym zpusobem smazat obsah vsech Tedit na jednom urcenem tabsheet.
VM> Urcite se to bude delat nejak pres to ze si zjistim ze je parent ten
VM> dany tabsheet. ale presne nevim jak.
VM> Dik milan
Odpovedį: ing. Jan Fiala
12. 11. 2002 11:57
Ale muzes to taky projet pres TabSheet.Controls. Pak budes pracovat
jen s komponentami na danem TabSheetu.
To plati i pro panel apod.
--
ing. Jan Fiala
mailto:jan.fiala@iol.cz
12.11.2002 Vymazal Milan:
> Zdravim
> mam takovy maly problem mam pagecontrol s nekolika tabsheet a na nich
> jsou urcite komponenty. Napriklad TEdit, TButton atd. potreboval bych
> nejakym zpusobem smazat obsah vsech Tedit na jednom urcenem tabsheet.
> Urcite se to bude delat nejak pres to ze si zjistim ze je parent ten
> dany tabsheet. ale presne nevim jak.
> Dik milan
Odpovedį: Ing. Pavel ˇilinec
12. 11. 2002 13:32
Chybicka se vloudila ...
--------
ing. Pavel Zilinec
MailTo:zilinec@email.cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
IPˇ>> Pisu to z hlavy, tak promin pripadnou chybu. Procedure posli dany
VM> diky moc. ale tohle vy smaze caption na tom danem tabsheet ? kde je
VM> teda chyba je naevim
IPˇ>> procedure VyprazdniSe(AWinControl : TWinControl);
IPˇ>> var i : integer;
IPˇ>> begin
IPˇ>> for i := 0 to AWinControl.ControlCount - 1 do
IPˇ>> if AWinControl.Controls[i] is TEdit then
IPˇ>> TEdit(AWinControl).Text := '';
TEdit(AWinControl.Controls[i]).Text := '';
IPˇ>> end;
Odpovedį: Peter Sulek
12. 11. 2002 14:46
> mam takovy maly problem mam pagecontrol s nekolika tabsheet a na nich
> jsou urcite komponenty. Napriklad TEdit, TButton atd. potreboval bych
> nejakym zpusobem smazat obsah vsech Tedit na jednom urcenem tabsheet.
> Urcite se to bude delat nejak pres to ze si zjistim ze je parent ten
> dany tabsheet. ale presne nevim jak.
procedure ClearValuesForPgPage(APageControl:TPageControl; PageIndex:integer;
PageName:String; UsePageName: Boolean);
var
i : integer;
pgidx : integer;
begin
if not UsePageName
then pgidx := PageIndex
else
for i := 0 to APageControl.PageCount-1 do
if AnsiUpperCase(APageControl.Pages[i].Caption) =
AnsiUpperCase(PageName)
then begin pgidx := i; break; end;
for i := 0 to APageControl.Pages[pgidx].ControlCount-1 do
begin
if (APageControl.Pages[pgidx].Controls[i] is TEdit) then
(APageControl.Pages[pgidx].Controls[i] as TEdit).Text := '';
end;
end;
Odpovedį: Peter SKODA
12. 11. 2002 14:16
Skus tento kod:
for i:=0 to TabSheet.ComponentCount-1 do
begin
if TabSheet.Component[i] is TEdit then
TEdit(TabSheet.Component[i]).Caption:='';
end;
----- Original Message -----
From: "Vymazal Milan" <vymazal.milan@seznam.cz>
To: <delphi-l@clexpert.cz>
Sent: Tuesday, November 12, 2002 11:02 AM
Subject: vsechny komponenty
> Zdravim
>
> mam takovy maly problem mam pagecontrol s nekolika tabsheet a na nich
> jsou urcite komponenty. Napriklad TEdit, TButton atd. potreboval bych
> nejakym zpusobem smazat obsah vsech Tedit na jednom urcenem tabsheet.
> Urcite se to bude delat nejak pres to ze si zjistim ze je parent ten
> dany tabsheet. ale presne nevim jak.
>
> Dik milan